home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / C / Comet2.1.3 Folder / Comet / xlate.h < prev    next >
Encoding:
Text File  |  1991-07-24  |  20.5 KB  |  668 lines  |  [TEXT/????]
  1. /*
  2.  * COPYRIGHT 1987 CORNELL UNIVERSITY; All Rights Reserved
  3.  *  Please see detailed copyrights and disclaimers in "notices.h"
  4.  */
  5.  
  6. /* IBM mainframe character set corresponding to 0x00 thru 0x7F ASCII */
  7.  
  8. unsigned char asctoebc[256] = {
  9.  
  10. /* 00-0F */
  11.    0x00,     /*  null           */
  12.    0x00,     /*  soh            */
  13.    0x00,     /*  stx            */
  14.    0x00,     /*  ETX            */
  15.    0x00,     /*  eot            */
  16.    0x00,     /*  enq            */
  17.    0x00,     /*  ack            */
  18.    0x00,     /*  bel            */
  19.  
  20.    0x00,     /*  backspace      */
  21.    0x05,     /*  tab            */
  22.    0x00,     /*  lf             */
  23.    0x00,     /*  vt             */
  24.    0x00,     /*  FF             */
  25.    0x00,     /*  CR             */
  26.    0x1c,     /*  SO             */
  27.    0x00,     /*  SI             */
  28.  
  29. /* 10-1F */  /*                 */
  30.    0x00,     /*  DLE            */
  31.    0x00,     /*  DC1            */
  32.    0x00,     /*  DC2            */
  33.    0x00,     /*  DC3            */
  34.    0x00,     /*  DC4            */
  35.    0x00,     /*  NAK            */
  36.    0x00,     /*  SYN            */
  37.    0x00,     /*  ETB            */
  38.  
  39.    0x00,     /*  CAN            */
  40.    0x00,     /*  EM             */
  41.    0x1e,     /*  SUB            */
  42.    0x00,     /*  ESC            */
  43.    0x00,     /*  FS             */
  44.    0x00,     /*  GS             */
  45.    0x00,     /*  RS             */
  46.    0x00,     /*  US             */
  47.  
  48. /* 20-2F */  /*                 */
  49.    0x40,     /*  SPACE          */
  50.    0x5a,     /*  !              */
  51.    0x7f,     /*  "              */
  52.    0x7b,     /*  #              */
  53.    0x5b,     /*  $              */
  54.    0x6c,     /*  %              */
  55.    0x50,     /*  &              */
  56.    0x7d,     /*  '              */
  57.  
  58.    0x4d,     /*  (              */
  59.    0x5d,     /*  )              */
  60.    0x5c,     /*  *              */
  61.    0x4e,     /*  +              */
  62.    0x6b,     /*  ,              */
  63.    0x60,     /*  -              */
  64.    0x4b,     /*  .              */
  65.    0x61,     /*  /              */
  66.  
  67. /* 30-3F */  /*                 */
  68.    0xf0,     /*  0              */
  69.    0xf1,     /*  1              */
  70.    0xf2,     /*  2              */
  71.    0xf3,     /*  3              */
  72.    0xf4,     /*  4              */
  73.    0xf5,     /*  5              */
  74.    0xf6,     /*  6              */
  75.    0xf7,     /*  7              */
  76.  
  77.    0xf8,     /*  8              */
  78.    0xf9,     /*  9              */
  79.    0x7a,     /*  :              */
  80.    0x5e,     /*  ;              */
  81.    0x4c,     /*  <              */
  82.    0x7e,     /*  =              */
  83.    0x6e,     /*  >              */
  84.    0x6f,     /*  ?              */
  85.  
  86. /* 40-4F */  /*                 */
  87.    0x7c,     /*  @              */
  88.    0xc1,     /*  A              */
  89.    0xc2,     /*  B              */
  90.    0xc3,     /*  C              */
  91.    0xc4,     /*  D              */
  92.    0xc5,     /*  E              */
  93.    0xc6,     /*  F              */
  94.    0xc7,     /*  G              */
  95.  
  96.    0xc8,     /*  H              */
  97.    0xc9,     /*  I              */
  98.    0xd1,     /*  J              */
  99.    0xd2,     /*  K              */
  100.    0xd3,     /*  L              */
  101.    0xd4,     /*  M              */
  102.    0xd5,     /*  N              */
  103.    0xd6,     /*  O              */
  104.  
  105. /* 50-5F */  /*                 */
  106.    0xd7,     /*  P              */
  107.    0xd8,     /*  Q              */
  108.    0xd9,     /*  R              */
  109.    0xe2,     /*  S              */
  110.    0xe3,     /*  T              */
  111.    0xe4,     /*  U              */
  112.    0xe5,     /*  V              */
  113.    0xe6,     /*  W              */
  114.  
  115.    0xe7,     /*  X              */
  116.    0xe8,     /*  Y              */
  117.    0xe9,     /*  Z              */
  118.    0xad,     /*  [              */
  119.    0x4a,     /*  \              */
  120.    0xbd,     /*  ]              */
  121.    0x5f,     /*  ^              */
  122.    0x6d,     /*  _              */
  123.  
  124. /* 60-6F */  /*                 */
  125.    0x79,     /*  `              */
  126.    0x81,     /*  a              */
  127.    0x82,     /*  b              */
  128.    0x83,     /*  c              */
  129.    0x84,     /*  d              */
  130.    0x85,     /*  e              */
  131.    0x86,     /*  f              */
  132.    0x87,     /*  g              */
  133.  
  134.    0x88,     /*  h              */
  135.    0x89,     /*  i              */
  136.    0x91,     /*  j              */
  137.    0x92,     /*  k              */
  138.    0x93,     /*  l              */
  139.    0x94,     /*  m              */
  140.    0x95,     /*  n              */
  141.    0x96,     /*  o              */
  142.  
  143. /* 70-7F */  /*                 */
  144.    0x97,     /*  p              */
  145.    0x98,     /*  q              */
  146.    0x99,     /*  r              */
  147.    0xa2,     /*  s              */
  148.    0xa3,     /*  t              */
  149.    0xa4,     /*  u              */
  150.    0xa5,     /*  v              */
  151.    0xa6,     /*  w              */
  152.  
  153.    0xa7,     /*  x              */
  154.    0xa8,     /*  y              */
  155.    0xa9,     /*  z              */
  156.    0xc0,     /*  {              */
  157.    0x4f,     /*  |              */
  158.    0xd0,     /*  }              */
  159.    0xa1,     /*  ~              */
  160.    0x00,     /* DEL  ascii 7f never seen     */
  161.  
  162.    /* Library characters are above 128 */
  163.  
  164.    /* 0x80-8F */
  165.    0x3b,        /* record separator */
  166.    0x1e,        /* tab delimiter  (EOF) */
  167.    0x00,
  168.    0x00,
  169.    0x00,
  170.    0x00,
  171.    0x00,
  172.    0x00,
  173.  
  174.    0x00,
  175.    0x00,
  176.    0x00,
  177.    0x00,
  178.    0x00,
  179.    0x00,
  180.    0x00,
  181.    0x00,
  182.  
  183.    /* 0x90-9F */
  184.    0x00,
  185.    0x00,
  186.    0x00,
  187.    0x00,
  188.    0x00,
  189.    0x00,
  190.    0x00,
  191.    0x00,
  192.  
  193.    0x00,
  194.    0x00,
  195.    0x00,
  196.    0x00,
  197.    0x00,
  198.    0x00,
  199.    0x6A,        /*  BROKEN BAR */
  200.    0x3B,        /*  DOUBLE DAGGER */
  201.  
  202.    /* 0xA0-AF */
  203.    0x00,
  204.    0x41,        /*  SLASH L */
  205.    0x42,        /*  SLASH O */
  206.    0x43,        /*  barred D */
  207.    0x44,        /*  thorn */
  208.    0x45,        /*  AE */
  209.    0x46,        /*  OE */
  210.    0x49,        /*  Miagkiy znak */
  211.  
  212.    0x64,        /*  centered dot */
  213.    0x66,        /*  musical flat */
  214.    0x67,        /*  circled R */
  215.    0x69,        /*  plus or minus */
  216.    0x47,        /*  hook O */
  217.    0x48,        /*     hook U */
  218.    0x63,        /*  Alif */
  219.    0xFA,        /*  alpha */
  220.  
  221.    /* 0xB0-BF */
  222.    0x62,        /*  Ayn */
  223.    0x51,        /*  slash l */
  224.    0x52,        /*  slash o */
  225.    0x53,        /*  barred d */
  226.    0x54,        /*  thorn */
  227.    0x55,        /*  ae */
  228.    0x56,        /*  eo */
  229.    0x59,        /*  Tverdyi znak */
  230.  
  231.    0x65,        /*  Turkish i */
  232.    0xE1,        /*  British pound */
  233.    0x68,        /*  Eth */
  234.    0xA0,        /*  Dagger */
  235.    0x57,        /*  hook o */
  236.    0x58,        /*  hook u */
  237.    0XFB,        /*  beta */
  238.    0XFC,        /*  gama */
  239.  
  240.    /* 0xC0-0xCF */
  241.    0x00,        /*  not used */
  242.    0x81,        /*  script 1 */
  243.    0x00,
  244.    0x00,
  245.    0x00,
  246.    0x00,
  247.    0xAF,        /*  sub ) */
  248.    0xB0,        /*  super 0 */
  249.  
  250.    0xB1,        /*  super 1 */
  251.    0xB2,        /*  super 2 */
  252.    0xb3,        /*  super 3 */
  253.    0xb4,        /*  super 4 */
  254.    0xb5,        /*  super 5 */
  255.    0xb6,        /*  super 6 */
  256.    0xb7,        /*  super 7 */
  257.    0xb8,        /*  super 8 */
  258.  
  259.    /* 0xd0-df */
  260.    0xb9,        /*  super 9 */
  261.    0xbe,        /*  super - */
  262.    0xba,        /*  super + */
  263.    0xbb,        /*  super ( */
  264.    0xbf,        /*  super ) */
  265.    0x70,        /*  sub 0 */
  266.    0x71,        /*  sub 1 */
  267.    0x72,        /*  sub 2 */
  268.  
  269.    0x73,        /*  sub 3 */
  270.    0x74,        /*  sub 4 */
  271.    0x75,        /*  sub 5 */
  272.    0x76,        /*  sub 6 */
  273.    0x77,        /*  sub 7 */
  274.    0x78,        /*  sub 8 */
  275.    0x90,        /*  sub 9 */
  276.    0xae,        /*  sub - */
  277.  
  278.    /* 0xe0-ef */
  279.    0xcf,        /*  pseudo question */
  280.    0x9a,        /*  grave */
  281.    0x9b,        /*  acute */
  282.    0x9c,        /*  circumflex */
  283.    0xce,        /*  tilde */
  284.    0xde,        /*  macron */
  285.    0xcd,        /*  breve */
  286.    0x8b,        /*  superior dot */
  287.  
  288.    0x8c,        /*  Umlaut or dieresis */
  289.    0x9d,        /*  Hacek */
  290.    0x8a,        /*  Angstrom (circle above) */
  291.    0x8e,        /*  ligature first half */
  292.    0x9e,        /*  ligature second half */
  293.    0xeb,        /*  high comma off center */
  294.    0xdf,        /*  double acute */
  295.    0x8d,        /*  candrabindu */
  296.  
  297.    /* 0xf0-ff */
  298.    0xda,        /*  cedilla */
  299.    0xdc,        /*  right hook */
  300.    0xcb,        /*  dot below */
  301.    0xcc,        /*  double dot below */
  302.    0xca,        /*  circle below */
  303.    0xee,        /*  double underscore */
  304.    0xed,        /*  underscore */
  305.    0xec,        /*  left hook */
  306.  
  307.    0xea,        /*  right cedilla */
  308.    0xdd,        /*  Upadhmaniya */
  309.    0x8f,        /*  left double tilde */
  310.    0x9f,        /*  right double tilde */
  311.    0xaa,        /*  sub + */
  312.    0xab,        /*  sub ( */
  313.    0xdb,        /*  high comma centered */
  314.    0x00         /*   */
  315. };
  316.  
  317. /* IBM PC/Macintosh character set corresponding to 0x00 thru 0xFF ebcdic */
  318.  
  319. unsigned char ebctoasc[256] = {
  320. /* value                        IBM name                3270 data orders
  321. /* 00 thru 1F */
  322.          /* some of the first 64    */
  323.          /* ebcdic characters are   */
  324.          /* orders & are displayed  */
  325.          /* here as nulls.          */
  326.         0xff,                   /* NUL remapped to FF */
  327.         0x2d,                   /* SOH */
  328.         0x2d,                   /* STX */
  329.         0x2d,                   /* ETX */
  330.  
  331.         0x2d,                   /* PF */
  332.         0x09,                   /* HT */                        /* PT = 5 */
  333.         0x2d,                   /* LC */
  334.         0x2d,                   /* DEL */
  335.  
  336.         0xff,                   /* */                           /* GE = 8 */
  337.         0x2d,                   /* */
  338.         0x2d,                   /* SMM */
  339.         0x2d,                   /* VT */
  340.  
  341.         0x20,                   /* FF */
  342.         0x20,                   /* CR */
  343.         0x2d,                   /* SO */
  344.         0x2d,                   /* SI */
  345. /* $10 */
  346.         0x2d,                   /* DLE */
  347.         0xff,                   /* DC1 */               /* SBA = 11 */
  348.         0xff,                   /* DC2 */               /* EUA = 12 */
  349.         0xff,                   /* TM */                /* IC = 13 */
  350.  
  351.         0x2d,                   /* RES */
  352.         0x20,                   /* NL */
  353.         0x2d,                   /* BS */
  354.         0x2d,                   /* IL */
  355.  
  356.         0x2d,                   /* CAN */
  357.         0x20,                   /* EM */
  358.         0x2d,                   /* CC */
  359.         0x2d,                   /* CU1 */
  360.  
  361.         0x0e,                   /* IFS TODO???? */
  362.         0xff,                   /* IGS */               /* SF = 1D */
  363.         0x81,                   /* IRS Tab symbol, EOF */
  364.         0x80,                   /* IUS double dagger Record Separator */
  365.  
  366. /* $20 */
  367.         0x2d,                   /* DS */
  368.         0x2d,                   /* SOS */
  369.         0x2d,                   /* FS */
  370.         0x2d,                   /* */
  371.  
  372.         0x2d,                   /* BYP */
  373.         0x2d,                   /* LF */
  374.         0x2d,                   /* ETB */
  375.         0x2d,                   /* ESC */
  376.  
  377.          /* DUP, FM & SUB cause a   */
  378.         0xff,                   /* */                   /* SA = 28 */
  379.         0xff,                   /* */                   /* SFE = 29 */
  380.         0x2d,                   /* SM */
  381.         0x2d,                   /* CU2 */
  382.  
  383.         0xff,                   /* */                   /* MA = 2C */
  384.         0x2d,                   /* ENQ */
  385.         0x2d,                   /* ACK */
  386.         0x2d,                   /* BEL */
  387.          /* funny char. on the PC   */
  388.  
  389. /* $30 */
  390.         0x2d,                   /* */
  391.         0x2d,                   /* */
  392.         0x2d,                   /* SYN */
  393.         0x2d,                   /* */
  394.  
  395.         0x2d,                   /* PN */
  396.         0x2d,                   /* RS */
  397.         0x2d,                   /* UC */
  398.         0x2d,                   /* EOT */
  399.          /* format control orders   */
  400.  
  401.         0x2d,                   /* */
  402.         0x2d,                   /* */
  403.         0x2d,                   /* */
  404. /*        0x2d,                   /* CU3 */
  405.         0x80,                   /* Record Separator */
  406.  
  407.         0xff,                   /* DC4 */               /* RA = 3C */
  408.         0x2d,                   /* NAK */
  409.         0x2d,                   /* */
  410.         0x07,                   /* SUB */
  411.          /* map to blanks           */
  412.  
  413. /* $40 */
  414.         0x20,                   /* SP */
  415.         0xa1,                   /* slash L */
  416.         0xa2,                   /* slash O */
  417.         0xa3,                   /* barred D */
  418.  
  419.         0xa4,                   /* cap thorn */
  420.         0xa5,                   /* AE */
  421.         0xa6,                   /* OE */
  422.         0xac,                   /* hook O */
  423.  
  424.         0xad,                   /* hook U */
  425.         0xa7,                   /* Miagkiy znak */
  426.         0x5c,                   /* cents */        /* cent sign is back slash \ */
  427.         0x2e,                   /* . */
  428.  
  429.         0x3c,                   /* < */
  430.         0x28,                   /* ( */
  431.         0x2b,                   /* + */
  432.         0x7c,                   /* | */
  433.          /* solid bar is broken bar (on PC?) */
  434.  
  435. /* $50 */
  436.         0x26,                   /* & */
  437.         0xb1,                   /* slash l */
  438.         0xb2,                   /* slash o */
  439.         0xb3,                   /* barred d */
  440.  
  441.         0xb4,                   /* thorn */
  442.         0xb5,                   /* ae */
  443.         0xb6,                   /* oe */
  444.         0xbc,                   /* hook o */
  445.  
  446.         0xbd,                   /* hook u */
  447.         0xb7,                   /* tverdyi znak */
  448.         0x21,                   /* ! */
  449.         0x24,                   /* $ */
  450.  
  451.         0x2a,                   /* * */
  452.         0x29,                   /* ) */
  453.         0x3b,                   /* ; */
  454.         0x5e,                   /*   */
  455.  
  456. /* $60 */
  457.         0x2d,                   /* - */
  458.         0x2f,                   /* / */
  459.         0xb0,                   /* ayn */
  460.         0xae,                   /* alif */
  461.  
  462.         0xa8,                   /* centered dot */
  463.         0xb8,                   /* turkish i */
  464.         0xa9,                   /* flat */
  465.         0xaa,                   /* (r) */
  466.  
  467.         0xba,                   /* eth */
  468.         0xab,                   /* +- */
  469.         0x9e,                   /* broken vertical bar */
  470.         0x2c,                   /* , */
  471.  
  472.         0x25,                   /* % */
  473.         0x5f,                   /* _ */
  474.         0x3e,                   /* > */
  475.         0x3f,                   /* ? */
  476.  
  477. /* $70 */
  478.         0xd5,                   /* sub 0 */
  479.         0xd6,                   /* 1 */
  480.         0xd7,                   /* 2 */
  481.         0xd8,                   /* 3 */
  482.  
  483.         0xd9,                   /* 4 */
  484.         0xda,                   /* 5 */
  485.         0xdb,                   /* 6 */
  486.         0xdc,                   /* 7 */
  487.  
  488.         0xdd,                   /* 8 */
  489.         0x60,                   /* ` */ /* ebcdic | not supported. */
  490.         0x3a,                   /* : */
  491.         0x23,                   /* # */
  492.  
  493.         0x40,                   /* @ */
  494.         0x27,                   /* , */
  495.         0x3d,                   /* = */
  496.         0x22,                   /* " */
  497.  
  498. /* $80 */
  499.         0xc1,                   /* script l */
  500.         0x61,                   /* a */
  501.         0x62,                   /* b */
  502.         0x63,                   /* c */
  503.  
  504.         0x64,                   /* d */
  505.         0x65,                   /* e */
  506.         0x66,                   /* f */
  507.         0x67,                   /* g */
  508.  
  509.         0x68,                   /* h */
  510.         0x69,                   /* i */
  511.         0xea,                   /* angstrom ALA */
  512.         0xe7,                   /* superior dot ALA */
  513.  
  514.         0xe8,                   /* umlaut ALA */
  515.         0xef,                   /* candrabindu ALA */
  516.         0xeb,                   /* ligature first half ALA */
  517.         0xfa,                   /* left double tilde ALA */
  518.  
  519. /* $90 */
  520.         0xde,                   /* sub 9 */
  521.         0x6a,                   /* j */
  522.         0x6b,                   /* k */
  523.         0x6c,                   /* l */
  524.  
  525.         0x6d,                   /* m */
  526.         0x6e,                   /* n */
  527.         0x6f,                   /* o */
  528.         0x70,                   /* p */
  529.  
  530.         0x71,                   /* q */
  531.         0x72,                   /* r */
  532.         0xe1,                   /* grave */
  533.         0xe2,                   /* acute */
  534.  
  535.         0xe3,                   /* circumflex */
  536.         0xe9,                   /* hacek */
  537.         0xec,                   /* ligature second half */
  538.         0xfb,                   /* right double tilde */
  539.  
  540. /* $a0 */
  541. /* A0 thru BF */
  542.         0xbb,                   /* dagger */
  543.         0x7e,                   /* ~ */
  544.         0x73,                   /* s */
  545.         0x74,                   /* t */
  546.  
  547.         0x75,                   /* u */
  548.         0x76,                   /* v */
  549.         0x77,                   /* w */
  550.         0x78,                   /* x */
  551.  
  552.         0x79,                   /* y */
  553.         0x7a,                   /* z */
  554.         0xfc,                   /* sub + */
  555.         0xfd,                   /* sub ( */
  556.  
  557.         0x2d,                   /* */
  558.         0x5b,                   /* [ */
  559.         0xdf,                   /* sub - */
  560.         0xc6,                   /* */
  561.  
  562. /* $b0 */
  563.         0xc7,                   /* super 0 */
  564.         0xc8,                   /* super 1 */
  565.         0xc9,                   /* super 2 */
  566.         0xca,                   /* super 3 */
  567.  
  568.         0xcb,                   /* super 4 */
  569.         0xcc,                   /* super 5 */
  570.         0xcd,                   /* super 6 */
  571.         0xce,                   /* super 7 */
  572.  
  573.         0xcf,                   /* super 8 */
  574.         0xd0,                   /* super 9 */
  575.         0xd2,                   /* super + */
  576.         0xd3,                   /* super ( */
  577.  
  578.         0xd4,                   /* super ) */
  579.         0x5d,                   /* ] */
  580.         0xd1,                   /* super - */
  581.         0xd4,                   /* */
  582.  
  583. /* $c0 */
  584.         0x7b,                   /* { */
  585.         0x41,                   /* A */
  586.         0x42,                   /* B */
  587.         0x43,                   /* C */
  588.  
  589.         0x44,                   /* D */
  590.         0x45,                   /* E */
  591.         0x46,                   /* F */
  592.         0x47,                   /* G */
  593.  
  594.         0x48,                   /* H */
  595.         0x49,                   /* I */
  596.         0xf4,                   /* circle below */
  597.         0xf2,                   /* dot below */
  598.  
  599.         0xf3,                   /* double dot below (weird square S char in IBM set) */
  600.         0xe6,                   /* breve */
  601.         0xe4,                   /* tilde (weird square Y char in IBM set) */
  602.         0xe0,                   /* pseudo question */
  603.  
  604. /* $d0 */
  605.         0x7d,                   /* } */
  606.         0x4a,                   /* J */
  607.         0x4b,                   /* K */
  608.         0x4c,                   /* L */
  609.  
  610.         0x4d,                   /* M */
  611.         0x4e,                   /* N */
  612.         0x4f,                   /* O */
  613.         0x50,                   /* P */
  614.  
  615.         0x51,                   /* Q */
  616.         0x52,                   /* R */
  617.         0xf0,                   /* cedilla */
  618.         0xfe,                   /* high comma centered */
  619.  
  620.         0xf1,                   /* right hook */
  621.         0xf9,                   /* upadhmaniya */
  622.         0xe5,                   /* macron */
  623.         0xee,                   /* double acute */
  624.  
  625. /* $e0 */
  626.         0x2d,                   /* \ */          /* ebcdic \ not supported-- trans as cents */
  627.         0xb9,                   /* british pound */
  628.         0x53,                   /* S */
  629.         0x54,                   /* T */
  630.  
  631.         0x55,                   /* U */
  632.         0x56,                   /* V */
  633.         0x57,                   /* W */
  634.         0x58,                   /* X */
  635.  
  636.         0x59,                   /* Y */
  637.         0x5a,                   /* Z */
  638.         0xf8,                   /* right cedilla */
  639.         0xed,                   /* high comma off center ??? */
  640.  
  641.         0xf7,                   /* left hook (weird "chair" char) */
  642.         0xf6,                   /* underscore */
  643.         0xf5,                   /* double underscore */
  644.         0x2d,                   /* */
  645.  
  646. /* $f0 */
  647.         0x30,                   /* 0 */
  648.         0x31,                   /* 1 */
  649.         0x32,                   /* 2 */
  650.         0x33,                   /* 3 */
  651.  
  652.         0x34,                   /* 4 */
  653.         0x35,                   /* 5 */
  654.         0x36,                   /* 6 */
  655.         0x37,                   /* 7 */
  656.  
  657.         0x38,                   /* 8 */
  658.         0x39,                   /* 9 */
  659.         0xaf,                   /* alpha */
  660.         0xbe,                   /* beta */
  661.  
  662.         0xbf,                   /* gamma */
  663.         0x2d,                   /* */
  664.         0x2d,                   /* */
  665.         0x40                    /* */
  666. };
  667.  
  668.